Sub ZZZ()
 Set newItem = Application.CreateItemFromTemplate("C:\Users\XXXX\AppData\Roaming\Microsoft\Templates\*.oft")
 newItem.Display
 Set newItem = Nothing
End Sub
